home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / games / egavga / cosmic2.arj / COSMIC.BAS
BASIC Source File  |  1993-01-18  |  40KB  |  992 lines
  1. WIDTH 40
  2. 'This example requires a color graphics adapter.
  3.     SCREEN 2
  4.     CIRCLE (320, 100), 200
  5.     CIRCLE STEP(0, 0), 100
  6. PRINT "Cosmic's Adventure"
  7. PRINT "Created By:"
  8. PRINT "Anthony Maniscalco"
  9. PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
  10. PRINT "Hello!"
  11. PRINT "Please enter your name."
  12. INPUT a$
  13. INPUT "Password: ", pas$
  14. IF pas$ = "abcba" THEN BEEP
  15. IF pas$ = "abcba" THEN GOTO 66
  16. IF pas$ = "zxsaq" THEN BEEP
  17. IF pas$ = "zxsaq" THEN CLS : GOTO 87
  18. IF pas$ = "wesdx" THEN BEEP: CLS : GOTO 102
  19. IF pas$ = "poiuy" THEN BEEP: CLS : GOTO 107
  20. IF pas$ = "rtfgv" THEN BEEP: CLS : GOTO 109
  21. IF pas$ = "trfvg" THEN BEEP: CLS : GOTO 111
  22. CLS
  23. PRINT "     Welcome to Cosmic's Adventure!  In this game, your goal is to save three of"
  24. PRINT "your marsian friends located on three galactic planets. To play the game, at the"
  25. PRINT "command prompt, you must input the name of an object around you and from there"
  26. PRINT "the computer will automatically know what to do.  Good luck, you'll need it!"
  27. PRINT
  28. PRINT "*   *"
  29. PRINT "  *"
  30. PRINT "\___/"
  31. PRINT
  32. PRINT "COSMIC"
  33. PRINT
  34. INPUT "Please press enter. ", b$
  35. CLS
  36. d = 0
  37. PRINT "     You are in a large office with a brown desk covered with heavy piles of"
  38. PRINT "paper. Behind the large stacks is Mr. Star sitting erect in his luxurious chair."
  39. 10 INPUT b$
  40. IF b$ = "desk" THEN PRINT "When Mr. Star is not looking, you open a desk drawer and take a"
  41. IF b$ = "desk" THEN PRINT "pencil.": d = 0 + 1
  42. IF b$ = "paper" THEN PRINT "They are records of UFO liscense grants."
  43. IF b$ = "piles of paper" THEN PRINT "They are records of UFO liscense grants."
  44. IF b$ = "piles" THEN PRINT "They are records of UFO liscense grants."
  45. IF b$ = "chair" THEN PRINT "This luxurious chair made of pure gold is an antique that has"
  46. IF b$ = "chair" THEN PRINT "been in the family for several generations."
  47. IF b$ = "Mr. Star" THEN GOTO 11
  48. GOTO 10
  49. 11 PRINT "Mr. Star asks if you are ready for you UFO test.  If you pass, you will receive"
  50. PRINT "your UFO liscense.  Are you ready?"
  51. INPUT c$
  52. IF c$ = "no" THEN GOTO 10
  53. 12 PRINT "Mr. Star: In order to receive your UFO liscense you must pass a simple test."
  54. INPUT "Please press enter. ", e$
  55. CLS
  56. g = 0
  57. PRINT "UFO LISCENSE TEST"
  58. PRINT "Please identify the three following constellations."
  59. PRINT
  60. PRINT "*"
  61. PRINT "  *"
  62. PRINT "    *"
  63. PRINT "     *   *"
  64. PRINT "     *   *"
  65. INPUT "The name of this constellation is ", h$
  66. IF h$ = "Ursa Minor" THEN g = g + 1
  67. IF h$ = "Little Dipper" THEN g = g + 1
  68. PRINT
  69. PRINT " *"
  70. PRINT "*  *  *"
  71. PRINT "     *"
  72. PRINT "       *"
  73. PRINT
  74. INPUT "The name of this constellation is ", f$
  75. IF f$ = "Cygnus" THEN g = g + 1
  76. PRINT
  77. PRINT "  *"
  78. PRINT "*   *"
  79. PRINT "*   *"
  80. PRINT
  81. INPUT "The name of this constellation is ", i$
  82. IF i$ = "Cepheus" THEN g = g + 1
  83. IF g = 2 THEN GOTO 13
  84. IF g = 3 THEN GOTO 13
  85. PRINT "Sorry... but you failed the UFO test.  Next time, at least try to get two"
  86. PRINT "correct.  Would you like to retake the test now?"
  87. INPUT j$
  88. IF j$ = "yes" THEN GOTO 12
  89. END
  90. 13 PRINT "Mr. Star: Congratulations, "; a$; "! You passed the UFO liscense test."
  91. INPUT "Please press enter. ", k$
  92. CLS
  93. PRINT "      You are now located outside Mr. Star's office.  Caught up in"
  94. PRINT "happiness, you dance around your extroidinary new UFO, while Mr. Star"
  95. PRINT "shares with you a warm smile as he looks out the clear window."
  96. PRINT
  97. 14 INPUT l$
  98. IF l$ = "office" THEN PRINT "On the wall of the office is a colorful advertisement"
  99. IF l$ = "office" THEN PRINT "for radio station, Star 101.1."
  100. IF l$ = "Mr. Star" THEN PRINT "He shares with you a warm smile."
  101. IF l$ = "window" THEN PRINT "The window is halfway open allowing a gentle breeze"
  102. IF l$ = "window" THEN PRINT "to enter the office."
  103. IF l$ = "UFO" THEN PRINT "Would you like to enter the UFO?"
  104. IF l$ = "UFO" THEN INPUT m$
  105. IF m$ = "yes" THEN GOTO 15
  106. GOTO 14
  107. 15 CLS : PRINT "     You enter the elaborate UFO and are amazed at your surroundings."
  108. PRINT "There are four passenger seats, a giganic crystal windowshield, and a complex"
  109. PRINT "operating device for the machine.  Wow!"
  110. PRINT
  111. o = 0
  112. p = 0
  113. 16 INPUT n$
  114. IF n$ = "seats" THEN PRINT "On the cushion of one, you find a shiny silver quarter.": o = 0 + 1
  115. IF n$ = "cushion" THEN PRINT "As you clumsily look under the cushion you find a small"
  116. IF n$ = "cushion" THEN PRINT "palm size radio.": p = 0 + 1
  117. IF n$ = "operating device" THEN PRINT "You attempt to fly the UFO, but for some reason"
  118. IF n$ = "operating machine" THEN PRINT "there is a technical problem with the ship."
  119. IF n$ = "windowshield" THEN PRINT "The windowshield was hand made by Mr. Nebula."
  120. IF n$ = "radio" THEN GOTO 17
  121. GOTO 16
  122. 17 IF p = 1 THEN GOTO 18
  123. PRINT "Unfortunately, you are not equipped with this possession."
  124. GOTO 16
  125. 18 CLS
  126. PRINT "Please input the radio station.  For example, you'd type 88.8 and tune"
  127. PRINT "into that station."
  128. PRINT
  129. PRINT "------------------------------------------------------------------"
  130. PRINT "80|||||||||||85||||||||||90||||||||||95||||||||||100|||||||||||105"
  131. PRINT "------------------------------------------------------------------"
  132. PRINT
  133. INPUT q
  134. IF q = 101.1 THEN GOTO 19
  135. PRINT "Sorry, but the radio station you inputed is not valid."
  136. INPUT "Please press enter. ", anthony$
  137. GOTO 18
  138. 19 PRINT "Hello, you are listening to Star 101.1.  I am your D.J., Mr. Mercury."
  139. PRINT "This is brand-new music from The Three Satellites new album titled,"
  140. PRINT "Out Of This World.  Please press enter to hear this cosmic song."
  141. INPUT r$
  142. CLS
  143.     'Play scale in 7 different octaves
  144.     scale$ = "CDEFGAB"
  145.     PLAY "L16"
  146.     FOR i% = 0 TO 6
  147.         PLAY "O" + STR$(i%)
  148.         PLAY "X" + VARPTR$(scale$)
  149.     NEXT i%
  150. PRINT "How did you like that?  Well fans, right now we will pause for a brief"
  151. PRINT "commercial break, put when we return, we'll pump up the jam!"
  152. INPUT "Please press enter. ", s$
  153. CLS
  154. PRINT "Did you encounter a technical difficulty with your UFO again? Don't fret,"
  155. PRINT "call UFO-HELP. (Note: You must correctly punch in the letters corresponding"
  156. PRINT "numbers when you dial.) Mr. Venus says if he can't repair your UFO, there"
  157. PRINT "was never anything wrong with it."
  158. INPUT "Please press enter. ", t$
  159. CLS
  160. PRINT "     You decide to look for a nearby telephone outside the ship.  You"
  161. PRINT "are now located outside a convenience store with a large sign attached"
  162. PRINT "to the wall and a trashcan and bench to the side of the building."
  163. PRINT
  164. v = 0
  165. 20 INPUT u$
  166. IF u$ = "sign" THEN PRINT "It is another advertisement for Star 101.1."
  167. IF u$ = "wall" THEN PRINT "In a crevice in the wall you find a second quarter.": v = 0 + 1
  168. IF u$ = "trashcan" THEN PRINT "Don't even think about it! There is nothing of value inside."
  169. IF u$ = "bench" THEN PRINT "An elderly woman is sitting on the long bench."
  170. IF u$ = "woman" THEN PRINT "She shares a friendly hello with you and smiles."
  171. IF u$ = "store" THEN GOTO 21
  172. GOTO 20
  173. 21 CLS : PRINT "     You enter the convenience store filled with many isles of galactic"
  174. PRINT "foods and home remedies.  Behind the counter is Mr. Galaxy smiling."
  175. PRINT
  176. 22 INPUT w$
  177. IF w$ = "foods" THEN PRINT "Mmm... Astro foods!"
  178. IF w$ = "home remedies" THEN PRINT "Wow! Nebular chap sticks!"
  179. IF w$ = "Mr. Galaxy" THEN PRINT "Looking for a telephone?  There is a pay phone"
  180. IF w$ = "Mr. Galaxy" THEN PRINT "located near the exit.": GOTO 23
  181. GOTO 22
  182. 23 PRINT "You walk toward the pay phone and attempt to dial a number."
  183. PRINT "Please don't include any hyphens or spaces in your number!"
  184. INPUT "Please input your desired number: ", x
  185. IF x = 8364357 THEN GOTO 24
  186. PRINT "This number is not valid.": GOTO 23
  187. 24 PRINT "This phone call will cost $.50."
  188. IF o = 1 THEN GOTO 25
  189. PRINT "Sorry, you do not have enough money.": GOTO 23
  190. 25 IF v = 1 THEN GOTO 26
  191. PRINT "Sorry, you do not have enough money.": GOTO 23
  192. 26 PRINT "The number is being transmitted. Please press any key on the following"
  193. PRINT "2 screens to end the transmission and attempt to get connected to the line."
  194. INPUT "Please press enter. ", y$
  195. CLS
  196.     'This example requires a color graphics adapter.
  197.     SCREEN 1
  198.     DIM Box%(1 TO 200)
  199.     x1% = 0: x2% = 10: y1% = 0: y2% = 10
  200.     LINE (x1%, y1%)-(x2%, y2%), 2, BF
  201.     GET (x1%, y1%)-(x2%, y2%), Box%
  202.     DO
  203.         PUT (x1%, y1%), Box%, XOR
  204.         x1% = RND * 300
  205.         y1% = RND * 180
  206.         PUT (x1%, y1%), Box%
  207.     LOOP WHILE INKEY$ = ""
  208. CLS
  209.     'This example requires a color graphics adapter.
  210.     PALETTE 0, 1
  211.     SCREEN 1
  212.     FOR i% = 0 TO 3: a%(i%) = i%: NEXT i%
  213.     LINE (138, 35)-(288, 165), 3, BF
  214.     LINE (20, 10)-(160, 100), 2, BF
  215.     DO
  216.         FOR i% = 0 TO 3
  217.             a%(i%) = (a%(i%) + 1) MOD 16
  218.         NEXT i%
  219.         PALETTE USING a%(0)
  220.     LOOP WHILE INKEY$ = ""
  221. CLS
  222. WIDTH 40
  223. PRINT "You have been connected to Mr. Venus's"
  224. PRINT "UFO Helpline. After explaining"
  225. PRINT "your problem, he replies, 'I will be to your assistance within seconds'."
  226. INPUT "Please press enter. ", z$
  227. CLS
  228. PRINT "As you exit the convenience store, you"
  229. PRINT "spot Mr. Venus working busily on your"
  230. PRINT "UFO. He replies it'll only take another few seconds."
  231. INPUT "Please press enter. ", aa$
  232. CLS
  233. PRINT "    -------------------------"
  234. PRINT "  /    o     o     o     o   \"
  235. PRINT " /____________________________\"
  236. PRINT " \                            / "
  237. PRINT "  \__________________________/  "
  238. PRINT
  239. PRINT "Your true adventure now begins"
  240. PRINT "as you travel to the first of"
  241. PRINT "three extroidinary planets."
  242. PRINT "Good luck! Hopefully, you will"
  243. PRINT "rescue your friends."
  244. INPUT bb$
  245. CLS
  246. PRINT "The game from this point on takes a"
  247. PRINT "new turn as you depart the UFO, and"
  248. PRINT "land on the first of three foreign"
  249. PRINT "planets.  Other commands to know in"
  250. PRINT "the next three levels are N to"
  251. PRINT "progress to the next screen, and P"
  252. PRINT "to proceed to the previous screen."
  253. INPUT "Please press enter. ", dd$
  254. CLS
  255. COLOR 5
  256. 40 PRINT "     As you exit the UFO you see a"
  257. PRINT "bizarre house with a group of singers"
  258. PRINT "singing excellent in front of the house."
  259. PRINT "They perform beside a black mailbox and"
  260. PRINT "say a heart warming hello."
  261. PRINT
  262. 41 INPUT ee$
  263. IF ee$ = "house" THEN GOTO 43
  264. IF ee$ = "singers" THEN GOTO 42
  265. IF ee$ = "mailbox" THEN PRINT "The mailbox is empty."
  266. GOTO 41
  267. 42 PRINT "The group of singers are The Three"
  268. PRINT "Satellites. They'd like to play their"
  269. PRINT "new song for you."
  270. INPUT "Please press enter. ", ff$
  271. CLS
  272.     scale$ = "BAGFEDC"
  273.     PLAY "L16"
  274.     FOR i% = 0 TO 6
  275.         PLAY "O" + STR$(i%)
  276.         PLAY "X" + VARPTR$(scale$)
  277.     NEXT i%
  278. PRINT "Not bad..."
  279. GOTO 41
  280. 43 PRINT "You enter the bizarre house."
  281. INPUT "Please press enter. ", gg$
  282. CLS
  283. SCREEN 2
  284. 44 PRINT "     As you enter the house, you spot a beatiful room with a dinette set"
  285. PRINT "in the middle surrounded by elegant chairs.  Above the set is a sparkling"
  286. PRINT "chandelier shedding light on the room.  To your side is a lovely flower"
  287. PRINT "sprouting out a pocelian vase.  On the wall is a crystal clock ticking"
  288. PRINT "away."
  289. PRINT
  290. 45 INPUT hh$
  291. IF hh$ = "N" THEN GOTO 46
  292. IF hh$ = "P" THEN GOTO 40
  293. IF hh$ = "set" THEN PRINT "The table was furnished by Mr. Mars."
  294. IF hh$ = "chairs" THEN PRINT "Under one chair, you find a notepad.": kk = 0 + 1
  295. IF hh$ = "chandelier" THEN PRINT "You are blinded by its radiant rays."
  296. IF hh$ = "flower" THEN PRINT "This flower would attract any young woman."
  297. IF hh$ = "vase" THEN PRINT "You see your reflection in the glass vase."
  298. IF hh$ = "clock" THEN PRINT "Tick, tock, Tick, tock."
  299. IF hh$ = "plates" THEN IF jj = 1 THEN PRINT "You set up the plates on the table.": tt = 0 + 1
  300. IF hh$ = "silverware" THEN IF ll = 1 THEN PRINT "You set up the silverware neatly on the table.": uu = 0 + 1
  301. IF hh$ = "glasses" THEN IF rr = 1 THEN PRINT "Above each plate, you place a glass.": vv = vv + 1
  302. IF hh$ = "cooked roast" THEN GOTO 53
  303. GOTO 45
  304. 53 IF tt = 1 THEN PRINT "You place half the roast in one plate, half in another.": ww = 0 + 1
  305. GOTO 45
  306. 46 IF tt = 1 THEN GOTO 54
  307. GOTO 55
  308. 54 IF uu = 1 THEN GOTO 56
  309. GOTO 55
  310. 56 IF vv = 1 THEN GOTO 57
  311. GOTO 55
  312. 57 IF ww = 1 THEN GOTO 58
  313. CLS
  314. 55 PRINT "     You are now located in the kitchen filled with many cupboards stacked"
  315. PRINT "on the long marble countertop.  The refrigerator is to the side of the"
  316. PRINT "room up against the wall.  On the opposite side of the room is an oven."
  317. PRINT
  318. 47 INPUT ii$
  319. IF ii$ = "N" THEN GOTO 49
  320. IF ii$ = "P" THEN GOTO 44
  321. IF ii$ = "cupboards" THEN PRINT "You find a set of plates in the cupboard.": jj = 0 + 1
  322. IF ii$ = "countertop" THEN PRINT "On the countertop, you find a set of silverware.": ll = 0 + 1
  323. IF ii$ = "refrigerator" THEN PRINT "You find a fresh roast inside the refrigerator.": mm = 0 + 1
  324. IF ii$ = "oven" THEN GOTO 48
  325. GOTO 47
  326. 48 INPUT "What would you like to use the oven with? ", nn$
  327. IF nn$ = "roast" THEN PRINT "You cook the roast, letting off a tantalizing aroma.": oo = o + 1
  328. IF nn$ = "roast" THEN PRINT "The roast is now known as the cooked roast."
  329. GOTO 47
  330. 49 PRINT "     You enter the next room, and discover a small alien siiting on"
  331. PRINT "his bed crying.  His bed is decorated with blue wallpaper and a night"
  332. PRINT "stand with a picture leaning up against the lamp."
  333. PRINT
  334. 50 INPUT pp$
  335. IF pp$ = "N" THEN GOTO 51
  336. IF pp$ = "P" THEN GOTO 46
  337. IF pp$ = "alien" THEN PRINT "Hello, my name is Neptune. (Weep!) I am sad for I"
  338. IF pp$ = "alien" THEN PRINT "cannot win the heart of Mars, the alien of my"
  339. IF pp$ = "alien" THEN PRINT "dreams. Please help me..."
  340. IF pp$ = "nightstand" THEN PRINT "In one of the drawers you find a pair of scissors.": qq = 0 + 1
  341. IF pp$ = "picture" THEN PRINT "It is a picture of Mars, Neptune's love."
  342. IF pp$ = "bed" THEN PRINT "Under his bed, you find a set of glasses.": rr = 0 + 1
  343. IF pp$ = "lamp" THEN PRINT "A picture of Neptune's face appears on the lamp."
  344. GOTO 50
  345. 51 PRINT "     As you enter Mar's room, you see her combing her long fragile hair"
  346. PRINT "on her bed.  You are surrounded by a long pink wall, several mirrors, and"
  347. PRINT "bureau stretching across the room."
  348. PRINT
  349. 52 INPUT SS$
  350. IF SS$ = "P" THEN GOTO 49
  351. IF SS$ = "hair" THEN PRINT "What beatiful brown hair she has."
  352. IF SS$ = "mirrors" THEN PRINT "You look at your reflection in the mirror."
  353. IF SS$ = "bureau" THEN PRINT "Inside one of its drawers you find a picture of"
  354. IF SS$ = "bureau" THEN PRINT "Neptune, which gave the impression it seemed to be hidden."
  355. IF SS$ = "Mars" THEN PRINT "With a quiet voice, Mars says, 'If only Neptune was romantic.'"
  356. IF SS$ = "invitation" THEN GOTO 65
  357. GOTO 52
  358. CLS
  359. 58 PRINT "Neptune: Thank you, "; a$; ", you have prepared a dinner for Mars and I."
  360. PRINT "However, I have nothing to offer her. (Note: You are located in the dining"
  361. PRINT "room at the present time.)"
  362. PRINT
  363. 60 INPUT xx$
  364. IF xx$ = "scissors" THEN IF qq = 1 GOTO 59
  365. IF xx$ = "flower" THEN PRINT "They would attract any young woman."
  366. GOTO 60
  367. 59 INPUT "Use with? ", yy$
  368. IF yy$ = "flower" THEN PRINT "Using your scissors, you cut the flower."
  369. PRINT "Neptune: Wow! What a beatiful flower. Attached to it, I'd like to"
  370. PRINT "write a note to her."
  371. PRINT
  372. 62 INPUT zz$
  373. IF zz$ = "notepad" THEN GOTO 61
  374. GOTO 62
  375. 61 IF kk = 1 THEN GOTO 63
  376. GOTO 62
  377. 63 INPUT "Use with? ", aaa$
  378. IF aaa$ = "pencil" THEN GOTO 64
  379. GOTO 63
  380. 64 PRINT "Neptune: Now that you have your notepad and pencil, you translate"
  381. PRINT "Neptune's message onto the paper and attach it to the flower."
  382. PRINT "Please give this invitation to dinner to Mars.": GOTO 51
  383. 65 PRINT "Oh my, I have been invited to dinner by Neptune. How romantic!"
  384. INPUT "Please press enter. ", bbb$
  385. CLS
  386. PRINT "Mars puts on a beatiful dress and joins Neptune for dinner."
  387. PRINT "Neptune: Thanks for all of your help! At the start of the game enter"
  388. PRINT "'ABCBA' and you will continue from this point on. See ya!"
  389. END
  390. 66 CLS : PRINT "     You are now located on the second floor of the grotesque house."
  391. PRINT "You are located in an entertainment room with a small alien dancing around"
  392. PRINT "the room.  You are amazed at the wide screen television and the gigantic"
  393. PRINT "cassette recorder."
  394. PRINT
  395. 67 INPUT ccc$
  396. IF ccc$ = "alien" THEN PRINT STRING$(48, 14)
  397. IF ccc$ = "alien" THEN PRINT "I love to sing and dance and would like to make a"
  398. IF ccc$ = "alien" THEN PRINT "out of my enjoyable hobby."
  399. IF ccc$ = "alien" THEN PRINT STRING$(48, 14)
  400. IF ccc$ = "television" THEN PRINT "You turn on the television and see a commercial"
  401. IF ccc$ = "television" THEN PRINT "for Star 101.1."
  402. IF ccc$ = "recorder" THEN PRINT "Too bad you are not equipped with a tape to pop in."
  403. IF ccc$ = "N" THEN GOTO 68
  404. IF ccc$ = "P" THEN PRINT "     In the dining room you find Neptune and Mars enjoying"
  405. IF ccc$ = "P" THEN PRINT "a romantic evening with The Three Satellites singing melodious"
  406. IF ccc$ = "P" THEN PRINT "love songs to them."
  407. IF ccc$ = "P" THEN GOTO 80
  408. IF ccc$ = "record" THEN IF mmm = 1 THEN PRINT "You record the Three Satellites new song"
  409. IF ccc$ = "record" THEN PRINT "which is called and known by 'Out Of This World', the title track!": ooo = 0 + 1
  410. GOTO 67
  411. 80 PRINT
  412. 81 INPUT nnn$
  413. IF nnn$ = "Neptune" THEN PRINT "He thanks you again for all your help."
  414. IF nnn$ = "Mars" THEN PRINT "She seems to be enjoying Neptune's company."
  415. IF nnn$ = "The Three Satellites" THEN PRINT "How lovely they play music!"
  416. IF nnn$ = "tape" THEN IF mmm = 1 THEN PRINT "You show the tape to the Three Satellites.": GOTO 85
  417. IF nnn$ = "N" THEN GOTO 66
  418. GOTO 81
  419. 68 PRINT "     As you walk into the art room, you find a tall easel, hundreds of"
  420. PRINT "bottles of colorful paints, long, thin paint brushes and a palette."
  421. PRINT
  422. 69 INPUT ddd$
  423. IF ddd$ = "easel" THEN GOTO 75
  424. IF ddd$ = "paints" THEN PRINT "You pick up the bottles of paint.": eee = 0 + 1
  425. IF ddd$ = "paint brushes" THEN PRINT "You take with you the many paintbrushes.": fff = 0 + 1
  426. IF ddd$ = "palette" THEN PRINT "You take the wooden palette.": ggg = 0 + 1
  427. IF ddd$ = "N" THEN GOTO 70
  428. IF hhh$ = "P" THEN GOTO 66
  429. GOTO 69
  430. 75 IF eee = 1 THEN GOTO 76
  431. PRINT "You do not have all of the required equipment to use the easel.": GOTO 69
  432. 76 IF fff = 1 THEN GOTO 77
  433. PRINT "You do not have all of the required equipment to use the easel.": GOTO 69
  434. 77 IF ggg = 1 THEN GOTO 78
  435. PRINT "You do not have all of the required equipment to use the easel.": GOTO 69
  436. 78 IF jjj = 1 THEN GOTO 79
  437. PRINT "You do not have all of the required equipment to use the easel.": GOTO 69
  438. 79 INPUT "What would you like to paint a picture of? ", kkk$
  439. IF kkk$ = "electric guitar" THEN PRINT "You paint the picture and it is known as contest entry.": lll = 0 + 1: GOTO 69
  440. PRINT "This picture is not valid.": GOTO 69
  441. 70 PRINT "     You walk into the sweaty gym filled with many healthy aliens working"
  442. PRINT "out on the equipment.  Soft mats are lined up in rows on the glossy floor."
  443. PRINT
  444. 71 INPUT hhh$
  445. IF hhh$ = "equipment" THEN PRINT "Wow! What a work out - weights, running machines,"
  446. IF hhh$ = "equipment" THEN PRINT "jumpropes, stretching, WHEW!"
  447. IF hhh$ = "mats" THEN PRINT "Under a mat you find a smock.": jjj = 0 + 1
  448. IF hhh$ = "floor" THEN PRINT "The floor appears glossy because of the reflection of"
  449. IF hhh$ = "floor" THEN PRINT "bright lights."
  450. IF hhh$ = "aliens" THEN PRINT STRING$(51, 1)
  451. IF hhh$ = "aliens" THEN PRINT "Wow! This is a workout! Why don't you get in shape?"
  452. IF hhh$ = "aliens" THEN PRINT "You have a long adventure ahead of you."
  453. IF hhh$ = "aliens" THEN PRINT STRING$(51, 1)
  454. IF hhh$ = "N" THEN GOTO 72
  455. IF hhh$ = "P" THEN GOTO 68
  456. GOTO 71
  457. 72 PRINT "     You are now located in the D.J. booth for Star 101.1.  The D.J.,"
  458. PRINT "Mr. Mercury is spinning records behind a booth filled with many albums."
  459. PRINT "Posters hang on his wall bringing color to the room."
  460. PRINT
  461. 73 INPUT iii$
  462. IF iii$ = "Mr. Mercury" THEN PRINT "He is upset because he cannot get his hands"
  463. IF iii$ = "Mr. Mercury" THEN PRINT "on the brand-new single by The Three Satellites."
  464. IF iii$ = "albums" THEN PRINT "Pop, adult contempary, country, modern rock, Wow!"
  465. IF iii$ = "posters" THEN PRINT "On is written in an alien language:": GOTO 74
  466. IF iii$ = "P" THEN GOTO 70
  467. IF iii$ = "contest entry" THEN mmm = 1 + 0
  468. IF iii$ = "contest entry" THEN PRINT "What a fabulous picture of an electric guitar!"
  469. IF iii$ = "contest entry" THEN PRINT "For entering, I will give you this blank cassette.  Thanks!"
  470. IF iii$ = "Out Of This World" THEN IF ooo = 1 THEN PRINT "Oh my, I am so happy.  You got a hold"
  471. IF iii$ = "Out Of This World" THEN IF ooo = 1 THEN PRINT "The Three Satellites new single. I will now"
  472. IF iii$ = "Out Of This World" THEN IF ooo = 1 THEN PRINT "give you the password to the third floor, zxsaq.": GOTO 86
  473. GOTO 73
  474. 74 PRINT "24, 12, 13, 7, 22, 8, 7!"
  475. PRINT "11, 26, 18, 13, 7   26   11, 18, 24, 7, 6, 9, 22   12, 21   26, 13"
  476. PRINT "22, 15, 22, 24, 7, 9, 18, 24   20, 6, 18, 7, 26, 9   7, 12   26, 23, 23"
  477. PRINT "7, 12   14, 2   24, 12, 15, 15, 22, 24, 7, 18, 12, 13!"
  478. GOTO 73
  479. 85 PRINT "They reply, 'Oh, you want to record our singing, we assume.  No"
  480. PRINT "problem we will follow you.  Just use the command record."
  481. INPUT "Please press enter. ", qqq$
  482. GOTO 66
  483. 86 PRINT "Press enter to hear 'Out Of This World' with me, Mr. Mercury says."
  484. INPUT ppp$
  485. CLS
  486.     FOR i% = 440 TO 1000 STEP 5
  487.     SOUND i%, i% / 1000
  488.     NEXT i%
  489.     'Play scale in 7 different octaves
  490.     scale$ = "CCAACCAA"
  491.     PLAY "L16"
  492.     FOR i% = 0 TO 6
  493.         PLAY "O" + STR$(i%)
  494.         PLAY "X" + VARPTR$(scale$)
  495.         NEXT i%
  496.     FOR i% = 1000 TO 440 STEP 5
  497.     SOUND i%, i% / 1000
  498.     NEXT i%
  499.     END
  500. 87 PRINT "     You are now located on the third and final floor of the strange house."
  501. PRINT "The room you are currently in is pitch dark. To get around the room, use"
  502. PRINT "the commands (N)orth, (S)outh, (E)ast, (W)est."
  503. PRINT
  504. 88 INPUT a$
  505. INPUT b$
  506. INPUT c$
  507. INPUT d$
  508. INPUT e$
  509. f = 0
  510. IF a$ = "N" THEN f = 0 + 1
  511. IF b$ = "W" THEN f = f + 1
  512. IF c$ = "S" THEN f = f + 1
  513. IF d$ = "E" THEN f = f + 1
  514. IF e$ = "S" THEN f = f + 1
  515. IF f = 5 THEN GOTO 89
  516. PRINT "You did not find your way to a lamp in the darkness. Try again.": GOTO 88
  517. 89 PRINT "     You discover a lamp and nervously turn it on.  You are in a hallway"
  518. PRINT "and see three golden doors. Which one would you like to enter?"
  519. PRINT
  520. PRINT " __________              __________                __________"
  521. PRINT "|          |            |          |              |          |"
  522. PRINT "|          |            |          |              |          |"
  523. PRINT "|       o  |            |        o |              |        o |"
  524. PRINT "|          |            |          |              |          |"
  525. PRINT "|__________|            |__________|              |__________|"
  526. PRINT
  527. g = INT(RND * 3) + 1
  528. INPUT h
  529. IF h = g THEN GOTO 90
  530. PRINT "You swing open the door and a deadly frightening skeleton walk out and..."
  531. PRINT "I can't look...": END
  532. 90 PRINT "You swing open the door."
  533.     scale$ = "CDEFGABCBAGFEDC"
  534.     PLAY "L16"
  535.     FOR i% = 0 TO 6
  536.         PLAY "O" + STR$(i%)
  537.         PLAY "X" + VARPTR$(scale$)
  538.     NEXT i%
  539. CLS
  540. PRINT "   Locked in a small cage towards the back of the room is your marsian friend"
  541. PRINT "Jupiter.  He jumps for joy when he sees your delightful smile again."
  542. PRINT
  543. 91 INPUT j$
  544. IF j$ = "cage" THEN PRINT "Unfortunately,  the cage is locked."
  545. IF j$ = "Jupiter" THEN GOTO 92
  546. IF j$ = "N" THEN GOTO 93
  547. GOTO 91
  548. 92 PRINT "Jupiter: Oh woe is me. I have been locked in this cage for ever so long."
  549. PRINT "Please save me... You will confront Mean Meteor, the evil alien who"
  550. PRINT "locked me in this cage.  He holds the key to my freedom. Take these three"
  551. PRINT "weapons with you: a zapper, blaster, and crasher. Good Luck!"
  552. GOTO 91
  553. 93 PRINT "     As you enter the next door, you confront Mean Meteor, himself!"
  554. PRINT "To destroy the evil alien, use the commands (Z)ap to use your zapper,"
  555. PRINT "(B)last to activate your blaster, and (C)rash to use your crasher."
  556. PRINT "  \   /"
  557. PRINT "    *"
  558. PRINT " /-----\"
  559. PRINT "Mean Meteor"
  560. PRINT
  561. k = 0
  562. l = 0
  563. INPUT m$
  564. IF m$ = "Z" THEN PRINT "You zap the Mean Meteor.": k = 0 + 1: GOTO 94
  565. PRINT "The Mean Meteor shoots his beamer and your health weakens.": l = 0 + 1
  566. 94 INPUT n$
  567. IF n$ = "C" THEN PRINT "You crash the Mean Meteor.": k = k + 1: GOTO 95
  568. PRINT "The Mean Meteor shoots his lazer and your health weakens.": l = l + 1
  569. 95 INPUT o$
  570. IF o$ = "B" THEN PRINT "You blast the Mean Meteor.": k = k + 1: IF k = 3 THEN GOTO 101: GOTO 96
  571. PRINT "The Mean Meteor uses his beamer on you.": l = l + 1: IF l = 3 THEN GOTO 100
  572. 96 INPUT p$
  573. IF p$ = "C" THEN PRINT "You crash the Mean Meteor.": k = k + 1: IF k = 3 THEN GOTO 101: GOTO 97
  574. PRINT "The Mean Meteor shoots his lazer and your health weakens.": l = l + 1: IF l = 3 THEN GOTO 100
  575. 97 INPUT q$
  576. IF q$ = "B" THEN PRINT "You blast the Mean Meteor.": k = k + 1: IF k = 3 THEN GOTO 101
  577. PRINT "The Mean Meteor shoots his beamer and your health weakens.": l = l + 1: IF l = 3 THEN GOTO 100
  578. 100 PRINT "Your health meter reads 0.  You have perished.": END
  579. 101 Music$ = "MBT180o2P2P8L8GGGL2E-P24P8L8FFFL2D"
  580.     PLAY Music$
  581.     WHILE PLAY(0) > 5: WEND
  582.     PRINT "You have defeated the Mean Meteor!"
  583. INPUT "Please press enter. ", r$
  584. CLS
  585. PRINT "     You take the key from the perished Mean Meteor's cloak pocket and"
  586. PRINT "unlock Jupiter's cave."
  587. PRINT "Oh thank you, "; a$; "! You have saved me from the evil hands of"
  588. PRINT "the Mean Meteor!  You reply, 'It's all in a day's work!' You may have"
  589. PRINT "saved Jupiter, but you must also rescue Saturn and Pluto, for the wrath"
  590. PRINT "of the Mean Meteor lives on...  Use the password 'WESDX' to travel to your"
  591. PRINT "second quest.": END
  592. 102 PRINT "      As you walk down the twisting staircase, and exit the house,"
  593. PRINT "passing many beatiful gardens surrounding a large pool, you enter the UFO"
  594. PRINT "with Jupiter.  You are now traveling to the House of Trivia, the second"
  595. PRINT "level.  The questions are derived from Parker Bros.'s Trivial Pursuit Family"
  596. PRINT "Edition board game."
  597. INPUT "Please press enter. ", b$
  598. CLS
  599. PRINT "     After quite a long trip, you land on the second of three planets."
  600. INPUT "You see the large House of Trivia.  Press enter to enter the building. ", c$
  601. CLS
  602. PRINT "     You are located on the first floor of the House of Trivia.  Please"
  603. PRINT "do not be discouraged if the questions are too challenging.  It is absolutely"
  604. PRINT "fine if you research the topics or ask other family members of friends."
  605. PRINT "Here is the first set of questions:"
  606. 105 e = 0
  607. INPUT "PP: What does the Amazon River empty into? ", f$
  608. IF f$ = "The Atlantic Ocean" THEN e = 0 + 1
  609. PRINT "ENT: What animated Disney classic features the musical number, Pink"
  610. INPUT "Elephants on Parade. ", g$
  611. IF g$ = "Dumbo" THEN e = e + 1
  612. PRINT "HIS: What country was Texas part of when soldiers shouted 'Remember the"
  613. INPUT "Alamo'? ", h$
  614. IF h$ = "Mexico" THEN e = e + 1
  615. INPUT "SN: What's the red-hot rock that flows out of a volcano called? ", i$
  616. IF i$ = "lava" THEN e = e + 1
  617. INPUT "SL: What country serves up Teriyaki McBurgers? ", j$
  618. IF j$ = "Japan" THEN e = e + 1
  619. PRINT "WC: How many women entered a 1973 Canadian military forces moustache-growing"
  620. INPUT "zero (0), 3 or 12? ", k
  621. IF k = 12 THEN e = e + 1
  622. PRINT "You have answered "; e; " questions correctly."
  623. IF e = 6 THEN GOTO 106
  624. PRINT "Sorry, you did not correctly answer all of the questions. You are welcome"
  625. PRINT "to try again. Remember not to get discouraged.": END
  626. 106 PRINT "Congratulations! You answered all six questions correctly!"
  627.     'Play scale in 7 different octaves
  628.     scale$ = "CDEFGAB"
  629.     PLAY "L16"
  630.     FOR i% = 0 TO 6
  631.         PLAY "O" + STR$(i%)
  632.         PLAY "X" + VARPTR$(scale$)
  633.     NEXT i%
  634. PRINT "Your new password is 'poiuy'.": END
  635. 107 c = 0: CLS : PRINT "     You are now on the second floor of the House of Trivia. Here"
  636. PRINT "is the second set of questions:"
  637. INPUT "PP: What Roman general said: 'I came, I saw, I conquered'? ", b$
  638. IF b$ = "Julius Caesar" THEN c = c + 1
  639. PRINT "ENT: What Sesame Street character has a toothpaste named after him?"
  640. INPUT d$
  641. IF d$ = "Big Bird" THEN c = c + 1
  642. PRINT "HIS: What country's centavos were vending machine slug rejectors to detect?"
  643. INPUT e$
  644. IF e$ = "Mexico's" THEN c = c + 1
  645. PRINT "SN: What was first exploded 34 miles north of Santa Fe on July 16, 1945?"
  646. INPUT f$
  647. IF f$ = "an atomic bomb" THEN c = c + 1
  648. INPUT "SL: What's the most poular U.S. cuisine in the U.S? ", g$
  649. IF g$ = "Italian" THEN c = c + 1
  650. PRINT "WC: What dessert did waitresses once refer as to 'nervous pudding'?"
  651. INPUT h$
  652. IF h$ = "jell-o" THEN c = c + 1
  653. PRINT "You have correctly answered "; c; " questions."
  654. IF c = 6 THEN GOTO 108
  655. PRINT "Sorry, but you did not answer all of the preceding questions correctly. Try again!": END
  656.     'Play scale in 7 different octaves
  657.     scale$ = "CDEFGAB"
  658.     PLAY "L16"
  659.     FOR i% = 0 TO 6
  660.         PLAY "O" + STR$(i%)
  661.         PLAY "X" + VARPTR$(scale$)
  662.     NEXT i%
  663. 108 PRINT "Your new password is 'rtfgv'.": END
  664. 109 CLS : PRINT "     You are on the third and final floor of the House of Trivia. You"
  665. PRINT "receive your third card:"
  666. b = 0
  667. PRINT "PP: What blond singer invited Oakland Athletic Jose Canseco to her private"
  668. INPUT "apartment in 1991? ", a$
  669. IF a$ = "Madonna" THEN e = e + 1
  670. INPUT "ENT: Who are the heroes in a half shell? ", c$
  671. IF c$ = "The Teenage Mutant Ninja Turtles" THEN e = e + 1
  672. PRINT "HIS: What war's beginning had Americans fighting under flags reading"
  673. PRINT "'An Appeal to Heaven,' 'Don't Tread on Me', and 'Liberty or Death'?"
  674. INPUT d$
  675. IF d$ = "The Revolutionary War's" THEN e = e + 1
  676. INPUT "SN: What color are the leaves of a tea plant? ", f$
  677. IF f$ = "green" THEN e = e + 1
  678. PRINT "SL: What beverage's 1892 ads dubbed it 'The Ideal Brain Tonic...For Headache"
  679. INPUT "& Exhaustion...At Soda Fountains? ", g$
  680. IF g$ = "Coca Cola's" THEN e = e + 1
  681. INPUT "What does Ichabod Crane do for a living? ", h$
  682. IF h$ = "He's a schoolteacher" THEN e = e + 1
  683. PRINT "You have correctly answered "; e; " questions."
  684. IF e = 6 THEN GOTO 110
  685. PRINT "Sorry, but you did not answer all of the preceding questions correctly. Try again!": END
  686. 110 PRINT "Congratulations!  You have answered all 18 questions in the House"
  687. PRINT "of Trivia correctly.  Suddenly, the House of Trivia crumbles to pieces,"
  688. PRINT "revealing Saturn.  He jumps for joy, for you have successfully rescued him."
  689. PRINT "Prepare now to travel to the House of Puzzles to save Pluto and destroy"
  690. PRINT "the Mean Meteor for good!"
  691. 'Play scale in 7 different octaves
  692.     scale$ = "CDEFGAB"
  693.     PLAY "L16"
  694.     FOR i% = 0 TO 6
  695.         PLAY "O" + STR$(i%)
  696.         PLAY "X" + VARPTR$(scale$)
  697.     NEXT i%
  698. PRINT "Your new password is 'trfgv'.": END
  699. 111 PRINT "Jupiter, Saturn, and you exit the UFO and confront the House of Puzzles."
  700. PRINT "You enter the house and confront the first of four puzzles."
  701. PRINT
  702. PRINT "___________________________________________________"
  703. PRINT "|        |         |         |                    |"
  704. PRINT "|        |         |         |                    |"
  705. PRINT "|        |         |         |                    |"
  706. PRINT "|        ------------------------------------------"
  707. PRINT "|        |         |         |         |          |"
  708. PRINT "|        |         |         |         |          |"
  709. PRINT "|        |         |         |         |          |"
  710. PRINT "----------------------------------------          |"
  711. PRINT "|                  |         |         |          |"
  712. PRINT "|                  |         |         |          |"
  713. PRINT "|                  |         |         |          |"
  714. PRINT "---------------------------------------------------"
  715. INPUT "Input the total number of squares found in the preceding figure. ", a
  716. IF a = 13 THEN GOTO 112
  717. PRINT "Sorry, your answer is incorrect. Please try again.": END
  718. 112 PRINT "You are correct! There are 13 squares in the preceding figure."
  719. PRINT "Here is the next puzzle:"
  720. PRINT
  721. PRINT "Common Combos - Listed below are groups of three unrelated words.  Find a"
  722. PRINT "word that either precedes or follows all the words in each group."
  723. PRINT
  724. PRINT "1. cable  squad  side          __________"
  725. PRINT "2. snow  horse  soft           __________"
  726. PRINT "3. boat  hold  keeper          __________"
  727. PRINT "4. cat  sword  flying          __________"
  728. PRINT "5. stone  hole  note           __________"
  729. PRINT "6. light  dream  break         __________"
  730. PRINT "7. under  hand  band           __________"
  731. PRINT "8. cup  mortar  over           __________"
  732. INPUT "1 - ", b$
  733. INPUT "2 - ", c$
  734. INPUT "3 - ", d$
  735. INPUT "4 - ", e$
  736. INPUT "5 - ", f$
  737. INPUT "6 - ", g$
  738. INPUT "7 - ", h$
  739. INPUT "8 - ", i$
  740. j = 0
  741. IF b$ = "car" THEN j = j + 1
  742. IF c$ = "shoe" THEN j = j + 1
  743. IF d$ = "house" THEN j = j + 1
  744. IF e$ = "fish" THEN j = j + 1
  745. IF f$ = "key" THEN j = j + 1
  746. IF g$ = "day" THEN j = j + 1
  747. IF h$ = "stand" THEN j = j + 1
  748. IF i$ = "board" THEN j = j + 1
  749. PRINT "You answered "; j; " common combos correctly."
  750. IF j = 8 THEN GOTO 113
  751. PRINT "Sorry, you did not answer all 8 questions correctly. Try again.": END
  752. 113 PRINT "Congratulations!  You answered all 8 common combos correctly."
  753. PRINT "Here is the next puzzle:"
  754. PRINT
  755. PRINT "Sqares - Each of the Squares contains an 8-letter word.  It can be found"
  756. PRINT "by starting at one of the letters and reading either clockwise or counter-"
  757. PRINT "clockwise."
  758. PRINT
  759. PRINT "1. O N Q     2. R O C    3. G U A"
  760. PRINT "   I   U        B   H       N   G"
  761. PRINT "   T S E        E R U       A L E"
  762. PRINT
  763. PRINT "4. O N E     5. A D S    6. M B E   7. C M E"
  764. PRINT "   T   K        O   T       E   R      I   C"
  765. PRINT "   S Y E        R R E       M E R      N A H"
  766. PRINT
  767. INPUT "1 - ", k$
  768. INPUT "2 - ", l$
  769. INPUT "3 - ", m$
  770. INPUT "4 - ", n$
  771. INPUT "5 - ", o$
  772. INPUT "6 - ", p$
  773. INPUT "7 - ", q$
  774. r = 0
  775. IF k$ = "question" THEN r = r + 1
  776. IF l$ = "brochure" THEN r = r + 1
  777. IF m$ = "language" THEN r = r + 1
  778. IF n$ = "keystone" THEN r = r + 1
  779. IF o$ = "roadster" THEN r = r + 1
  780. IF p$ = "remember" THEN r = r + 1
  781. IF q$ = "mechanic" THEN r = r + 1
  782. PRINT "You correctly answered "; r; " questions."
  783. IF r = 7 THEN GOTO 198
  784. PRINT "Sorry, you did not correctly answer all of the preceding questions. Try again.": END
  785. 198 PRINT "You have correctly answered each square.  You arrive at a large door."
  786. PRINT "Behind the door is the Mean Meteor.  To enter the door, you must find the"
  787. PRINT "password:"
  788. PRINT "1. PRINT THE WORDS LIGHTS OUT."
  789. PRINT "2. INSERT ARE BETWEEN THE S AND THE O."
  790. PRINT "3. CHANGE THE FIFTH VOWEL FROM THE LEFT TO A P."
  791. PRINT "4. EXCHANGE THE SIXTH CONSONANT FROM THE LEFT AND THE FOURTH VOWEL FROM THE"
  792. PRINT "RIGHT."
  793. PRINT "5. REPLACE THE FOURTH CONSONANT TO THE RIGHT WITH AN E."
  794. PRINT "6. PLACE THE SECOND E FROM THE LEFT IN FRONT OF THE E."
  795. PRINT "7. MAKE THE S AN N."
  796. PRINT "8. CHANGE THE I TO AN L."
  797. PRINT "9. EXCHANGE THE FIRST AND THE LAST LETTERS."
  798. INPUT "PLEASE PRESS ENTER. ", SS$
  799. CLS
  800. PRINT "10. EXCHANGE THE FOURTH VOWEL FROM THE LEFT AND THE SIXTH CONSONANT FROM THE"
  801. PRINT "RIGHT."
  802. PRINT "11. INSERT A D BETWEEN THE EIGHT AND NINTH LETTERS FROM THE LEFT."
  803. PRINT "12. PLACE AN M BEFORE THE P."
  804. PRINT "13. CHANGE THE G TO AN A."
  805. PRINT "14. REPLACE THE LAST LETTER WITH AN S."
  806. PRINT "15. CHANGE THE NINTH CONSONANT FROM THE RIGHT TO A B."
  807. PRINT "16. INSERT AN H BETWEEN THE SIXTH AND SEVENTH LETTERS FROM THE LEFT."
  808. PRINT "17. CHANGE THE FIRST H FROM THE LEFT TO A K."
  809. INPUT "The password is ", t$
  810. IF t$ = "brokenheadlamps" THEN GOTO 199
  811. PRINT "Sorry, you have entered the incorrect password!": END
  812. 199 PRINT "You have entered the correct password and open the door.  This is"
  813. PRINT "your last battle with the Mean Meteor."
  814. INPUT "Please press enter. ", u$
  815. CLS
  816. 293 PRINT "     As you enter the door, you confront Mean Meteor, himself!"
  817. PRINT "To destroy the evil alien, use the commands (Z)ap to use your zapper,"
  818. PRINT "(B)last to activate your blaster, and (C)rash to use your crasher."
  819. PRINT "  \   /"
  820. PRINT "    *"
  821. PRINT " /-----\"
  822. PRINT "Mean Meteor"
  823. PRINT
  824. k = 0
  825. l = 0
  826. INPUT aa$
  827. IF aa$ = "Z" THEN PRINT "You zap the Mean Meteor.": k = 0 + 1: GOTO 294
  828. PRINT "The Mean Meteor shoots his beamer and your health weakens.": l = 0 + 1
  829. 294 INPUT bb$
  830. IF bb$ = "C" THEN PRINT "You crash the Mean Meteor.": k = k + 1: GOTO 295
  831. PRINT "The Mean Meteor shoots his lazer and your health weakens.": l = l + 1
  832. 295 INPUT cc$
  833. IF cc$ = "B" THEN PRINT "You blast the Mean Meteor.": k = k + 1: IF k = 3 THEN GOTO 201: GOTO 296
  834. PRINT "The Mean Meteor uses his beamer on you.": l = l + 1: IF l = 3 THEN GOTO 200
  835. 296 INPUT dd$
  836. IF dd$ = "C" THEN PRINT "You crash the Mean Meteor.": k = k + 1: IF k = 3 THEN GOTO 201: GOTO 297
  837. PRINT "The Mean Meteor shoots his lazer and your health weakens.": l = l + 1: IF l = 3 THEN GOTO 200
  838. 297 INPUT ee$
  839. IF ff$ = "B" THEN PRINT "You blast the Mean Meteor.": k = k + 1: IF k = 3 THEN GOTO 201
  840. PRINT "The Mean Meteor shoots his beamer and your health weakens.": l = l + 1: IF l = 3 THEN GOTO 200
  841. 200 PRINT "Your health meter reads 0.  You have perished.": END
  842. 201 Music$ = "MBT180o2P2P8L8GGGL2E-P24P8L8FFFL2D"
  843.     PLAY Music$
  844.     WHILE PLAY(0) > 5: WEND
  845.     PRINT "You have defeated the Mean Meteor!"
  846. INPUT "Please press enter. ", r$
  847. CLS
  848. SCREEN 0
  849. COLOR 4
  850. PRINT "    The Mean Meteor suddenly vanishes into the brisk air and you release"
  851. PRINT "Pluto from his cage.  You have rescued Jupiter, Saturn, and Pluto, and you"
  852. PRINT "can now sleep well, knowing you have brought peace to your three friends!"
  853. PRINT
  854. PRINT "Staff: "
  855. PRINT "Created By: Anthony Maniscalco"
  856. PRINT "Special Thanks To:"
  857. PRINT "Trivial Pursuit Family Edition"
  858. PRINT "Pennypress Fun and Easy Variety Puzzles (First Issue)"
  859. PRINT "Salvator and Gregory Gagliard - Couldn't succeed without you!"
  860. PRINT "Characters (in order of appearance):"
  861. PRINT "Cosmic (you)          Mr. Star          Mr. Mercury"
  862. PRINT "The Three Satellites  Mr. Venus         Mr. Galaxy"
  863. PRINT "Neptune               Mars              Dancing Marsian"
  864. PRINT "Work-out aliens       Dead skeleton     Mean Meteor"
  865. PRINT "Jupiter               Saturn            Pluto"
  866.     'Play scale in 7 different octaves
  867.     scale$ = "BACGFDEDFGCAB"
  868.     PLAY "L16"
  869.     FOR i% = 0 TO 6
  870.         PLAY "O" + STR$(i%)
  871.         PLAY "X" + VARPTR$(scale$)
  872.     NEXT i%
  873. INPUT "Please press enter. ", cosmic$
  874. CLS
  875. COLOR 2
  876. PRINT "Prologue:"
  877. PRINT
  878. PRINT "     Cosmic, Jupiter, Saturn, and Pluto live happily on their home planet,"
  879. PRINT "Jibip.  All three will leave in peace and free from fear of the Meam Meteor."
  880. PRINT "As for Mr. Star and Mr. Galaxy, they continue on with their jobs, Mr. Star"
  881. PRINT "granting liscenses and Mr. Galaxy selling food.  As for Mr. Mercury, he"
  882. PRINT "hasn't stopped playing the Three Satellites new song yet!  The Three"
  883. PRINT "Satellites are currently on a tour to all of the foreign galaxies.  They"
  884. PRINT "added the marsian dancing in the entertainment room to their group."
  885. PRINT "Mr. Venus continues to repair broken UFO, but he has a new commercial"
  886. PRINT "with him singing!  Watch Out!  Neptune and Mars were just married and had"
  887. PRINT "a baby boy, Boom.  As for the dead skeleton, he continues to haunt those"
  888. PRINT "who enter his lair.  The work-out aliens are now running a gym of their own"
  889. PRINT "where the Mean Meteor has enlisted to get in shape with his next bought"
  890. PRINT "with you.  However, he's still screaming, for he can't turn off the"
  891. PRINT "running machine."
  892. INPUT "Please press enter. ", prologue$
  893. CLS
  894. PRINT "Thanks for playing!"
  895. PRINT "January 18, 1993"
  896. END
  897.  
  898.  
  899.  
  900.  
  901.  
  902.  
  903.  
  904.  
  905.  
  906.  
  907.  
  908.  
  909.  
  910.  
  911.  
  912.  
  913.  
  914.  
  915.  
  916.  
  917.  
  918.  
  919.  
  920.  
  921.  
  922.  
  923.  
  924.  
  925.  
  926.  
  927.  
  928.  
  929.  
  930.  
  931.  
  932.  
  933.  
  934.  
  935.  
  936.  
  937.  
  938.     
  939.  
  940.  
  941.  
  942.  
  943.  
  944.  
  945.  
  946.  
  947.  
  948.  
  949.  
  950.  
  951.  
  952.  
  953.  
  954.  
  955.  
  956.  
  957.  
  958.  
  959.  
  960.  
  961.  
  962.  
  963.  
  964.  
  965.  
  966.  
  967.  
  968.  
  969.  
  970.  
  971.  
  972.  
  973.  
  974.  
  975.  
  976.  
  977.  
  978.  
  979.  
  980.  
  981.  
  982.  
  983.  
  984.  
  985.  
  986.  
  987.                                                                   
  988.  
  989.  
  990.  
  991.  
  992.